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title pli$delete - pl1 runtime delete file 
040087 “ 


- ident : Edit wHM1002 


0 
PARAAAASAASAALAAAAAA ALA AALALALA LALA SAAR R RASA SARA RRR ARRAS RASA RRR RRR ERR R SS SSS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-* 

** ® 
*@ ® 
*® ® 
*® ® 
*® ® 
;* THI FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
;* ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* CN OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
7 ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. ® 
*® * 
*® te 
** ® 
*® * 
*® * 
*® ® 
*® ® 
*® ® 
ow * 
**® ® 


3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT 


G 
0 
N 
I 
Pp 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS ¥ 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


PARRA ASLASASALALALALE LALA AALAL LEAR RE ERE SALAS ERAS A RAS RR RRR RAR AR ARR ALAR AAA RDS SD OD 


SOOOCCCSOSCOSCOCOOOOOOOOOOOOOoOOoOO 


++ 
facility: 

VAX/VMS PL1 runtime Library. 
abstract: 


SOSCOCCOCOSOSOSOSSOSCSOSOSOSOSOSOOOSOOOOOOOOOOOOOSooOO 


This module contains the pl1 runtime routine for deleting a record 
from a file. 


author: c. spitz 25-jul-79 
modified: 


SOoOSOCSCOOSOSOSCSSOSSSSSSSSOSOSSOCSSSOSOSOSOSOOSOOOSOSOOSOOOOOSoOOo 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 


SOOoooo 
OOoOoooooooooooo 


OOCOCOCOOOOCOOCOOOCoooeoeoe 


3+ 
3; external definitions 


Oooo: 


$Sdeffcb sdefine file control block offsets 
Srabdef sdefine rab offsets 


NOAOUE WN O OONAUE WN 9 OD NAMUE WIN  O ODNAU EWN O OONAUE WN OOONOUS WN 


SOOSCCOCSDSDOSCOOSOSOOSOOOCOSOOOOOOOO DOO OOOO OOOOO OOOO OOO OOOO OOO OOOO 
MINNA BE EE ESE SWI inononononononononony 3 2 


Soooo 
Sooooo 
Cooooo 


PLISDELETE - pli runtime delete file 16-SEP-1984 217: AX/VMS Macro V04-00 Page 
ee 3 pate 1 94:45:98 YPLIRTL. SREIPLIDELETE MAR: 1 . dy 

28 $rmsdef sdefine rms error codes 
2p $fabdef sdefine fab offsets 
61 ;+ 
86 ; local definitions 

0 64 Soffset 4,positive,<- sdefine arguments 

0 65 <fcbaddr,4>,- taddr of fc 

0 66 <keyaddr,4>,- zsaddr of hey or keyto 

38 6 <keylen,4>,- zlength of key or keyto 

0 68 <keytyp,4>,° data type of key or keyto 

898 $2 <fastdel,4>,- saddr of fast delete 
0 <keynum,4>,- saddr of key number 

000 71 <recidfrom,4>,- zsaddr of record id from 

000 e <matchgtr,4>,- zaddr of match greater 

0000 7 <matchgeq,4>,- zsaddr of match greater equal 

44 74 > : 

000 75 

0000 76 rtshare sharable 

0000 77 
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be tis , Breer a be 99:55:99 FON TNTS Bacto VOR OO mans1 2% Gy 


+ 

pli$delete -- delete a record from a file 
functional description: 

This routine deletes a record from a pli file. 


inputs: 
(ap) = number of arguments 
1 if no key and no options 
4 if key and no options 
9 if any PS 


ey 
size/prec 4 key 


addr of fas fast t delete (aligned bit) 
of key number 

addr of record id from 

addr of match greater 

addr of match greater equal 


seeeeuee 
ooa 
a 
a 
5 


output 
eb. l_attr 
ote _m_write, atr_m_bfall and atr_m_vir sa ae set false 


DOOCOOCOOCOOOOOCOOOOOOOOOOOCOSoO 
SOOGCOCOCOCOOOCOOOOOOOOOOOOSoOoOSoO 


SOOOOOCOOOOOOOOOOOOOooO 


OGOOOCCOCGCOCOCOOCOOCOOOOOOOOOOOoO 


Sete Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Sete 
+ 


0000 atr_m_delete and atr_m_currec are Set 
44 fcb_q_rfa is” Set to the rfa of the record that wea deleted 
000 side effects: 
000 the record is deleted from the file. 
007C entry pliS$delete,*m<r2,r3,r4,r5,r6> 
> check arguments. there must be at least one argument. 
a ee : cmpl top) ft enough arguments? 
05 = =«=18 bgeq 8 :9eq yes 
50 Bs c{rl r0 n {cate not enough args 
0151 1 brw fail gan 
28 04 AC DO 10$: movl febaddr (ap) .12 :get eddress of fcb 
5 Oc A200 movl feb_l_attr(r2),r3 sget attributes 


: open the file if necessary. the file will be opened with record and 
: watery. Pi the file is not opened after calling open, an error is 
3 signale 


bbs #atr_v_opened,r3,20$ zif file not opened 
pushl #<atf_a_ record!atr _m _update> sset record and update for implied 


sos om 
oso 97o 


aeueh address of fcb 


AAA AAA INIPININPININPININDIDS 9 9 OO? MH DOOODOOOCOOOOOO0O00000 OOO C009 00 Co CD CD CDOD CO ~) 


AEN OS OO NAUSEA 9 OO NA UE WIN $$ 9 OD NAME WN SO ODNAU EWN OO OONOUS WOO 


ee Dd ah a ad tt 4 8 2 — — — > bs ts 9 bs 2s 2 2s 3) 4 2 2 


SOOoOOOOCOCOoOOOOOOOOOOOOOSOoOSooOSS 


SOCSOCOOSCOOSOOOOSOSSo OOOO OoOoSoSoSo 
WRIRININ 2 2 2 OS | SH OQOOOOSOSSOSSS 


AMD NOMMOL & LLL LOM ONVUNVINININOOOS 


01 
8F 
5 pushl og 
soeee ; tal 0 F calls #2,a*pli poeee the file 
OC A D movl fcb_t Pr teetee), r3 et attributes 
A 53 E bbs bore V_opene £3,208 f file stilt not opened 
50 0 4 mov l fot i 118.6 open, r ‘set open failure 


brw fai zand fail 


wo 
— 
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PLISDELETE - pli runtime delete file 19 6-SEP-1984 7:20 VAX/VMS Macro v04-00 Pa 4 
theo 6-SEP- 1984 4: ¥ :@f PLIRTL.SR REIP PLIDELETE.MAR;1 sa (1) 
136 ; 
G 3 1 5 i : make sure file has proper ot Bs file must have record and 
a gi 3; update. file must not have ete 
0 3 149 ; if key is specified, file aust have keyed. 
OA 53 . @ 6 9 161 208: bbs #atr_v_record,r3,30$ sif file doesn't have record 
50 00006000" BF 00 F44 126 povt fail fotrec,r0 set not record file 
w 
A 53 4 EO 0047 144 308: bbs atr_v_update,r3,40$ ‘77 file doesn't have update 
00006609" p9 38 45 novl folis. otupdate,r0 iset not update file : 
rw 
OA 00BC C2 OS €E1 B33 149 40$: bbc #fab$v _bio,<feb_ b_ tabs fabsb. taer(r2), 45$ ;if file open for 
50 00000000'8F 0 Boe 149 movl #pli$_conblokio,r0 soot  contatets with block io 
OOF 8 1 Bae 139 brw fail zand fail 
069 13¢ 3 : process options 
562 a2 «9G «(0065 «154 Ass: moved feb_b rab(r2),r get address of rab 
04 AG —- or a Boy 133 a arab sn. et ihe kgt>,ra aoe rop(r4) igieae kge and kgt 
cm a 30 Tons spec 
08 18 8074 157 beeg soe)’ geq. savee 
0094 51 0076 158 brw 608 fits lss, $O process as seq! 
63 13 159 50$: beql see sif eql, only akey specified, go do it 
09 6C~ ODI B 160 cmpl £30) 9 senuf options? 
ga 13 161 beql zif “tr » then yes 
50  00000000'8F b0 166 movl Pplis. invnumopt,r0 zsset invalid options 
00D3 1 197 brw fail sand fail 
193 3 : process match greater and match greater equal 
50 20 AC 00 167 dos: mov l matenger( ap) . r0 sget addr of match greater 
00000000'GF 16 168 jsb g*pliSSmatchgtr zsprocess match greater 
50 24 AC 00 169 movl mae tease r0 sget addr of match greater equal 
00000000'GF 16 109 jsb a*plid$matchgeq process match greater equal 
Ze : process key number 
50 18 AC 00 174 movl keynum(ap) ,r0 sget addr of key num 
51 08 AC 00 175 mov | keyaddr (ap), ri get addr of k a 
00C00000'GF 16 178 jsb 9 ao Lis$keynum sproces key number 
178 process fast delete 
04 A& 00000040 BF CA 180 ° bicl #rab$m_fdl,rab$l_rop(r4) he gees no options 
50 14 AC 09 181 movi _ fastdel(ap),r0 :get addr of fast del 
14 #1 1 § beql 1008 f egl, not specified 
OA 53. 10+ €0 1 bbs #atr_v_indexed,r3,90$ tif t le doesn’t have indexed 
5 00000009 ef 90 } : novi #ol is_ hot indexed, r0 iset not indexed 
rw 
04 A4 O11 06 60 FO 136 90$: insv (r0) ,#rab$v_fdl.#1,rab$l_rop(r4) sset fast delete in rab 
189 : process record id from 
50 1 aC 9 190 100$: movil recidfrom(ap),r0 sget rfa from addr 
D 191 mov l thet tease Aa :get addr of key 
000000 16 192 jsb g*pli$$recidfrom process rfa from 
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PLISDELETE - pli runtime delete file 16-SEP-1984 02:17:20 VAX/VMS Macro V04-00 Pa 
sto orSEpm19RG 17547581 LORIN SRETLIDELESE MAR: 1 2% (2) 
4— 1 Dc 3=—.: 193 bne 180$ :if neq, do rfa find 
08 AC 08 D 13 1208: tstt bexgddr (ap) skey spec tied? 
2A ; 132 : beql 160$ :if eql, no, do seql delete 
E 1 ; process key option. 
0A 53 08 €0 O0E3 199 1308: bbs #atr_v_keyed.r3,140$  ;if file doesn't have keyed 
50 000060008 3} z i mov #\ iS fot eyd,r set not keyed file. ? 
w PY a 
50 AC F 1408 movab keyaddr(ap),r0 spoint to key descr 
06000000" ¢F 3 OFS : sb 9°) i$$readkey r6 sorocess hey” 
000000' f 1 ore 03 sb 9ohy 'SSsaal loet ging the record 
icon 
50 sinecntany * F 9 193 $ 150$: movl #pli$_rmsr,r0 set rms rab error 
050 1 1s 4 f brw fail zand fail 
He 9 ; for sequential delete, find current record if necessary. 
OA 53. 13 + #«4€1 0100 11 160$: bbe #atr_v_delete,r3,170$ ;if file has delete 
50 eeaneed *' 0 + \¢ 165$: movl #oli8_nocurrec.rd set no current record 
rw a zand fa 
19 53 13 4 118 14 170$: bbc #Watr_v_currec,r3,190$  ;if current record not correct 
1—E AG 0 OTF 15 movb #rabSc_rfa,rab$b rac(r4) ;set rfa access in ra 
10 A420 A2 7D oi z 16 movqg fcb_q_rfa(r2),rab$w_rfa(r4) ;set rfa in rab 
sos 61 EO 0128 1 bbs #atr_V_virgin,r3,165$  ;if open just occurred, fail 
01 f 18 180$: $find r sfind the current record 
cB 50—s«éE 4 H 1% blbc 70,150$ sif lbc, fail 
at ; ; ; delete the record 
20 A2 10 AS «7D 4 ; 190$: mova rab$w_rfa(r4),fcb_q_rfa(r2) scopy correct current record's rfa 
sto fe 
b1z0 5 $delete r4 sdelete the record 
BA 50 £9 0146 6 blbc r0,150$ -if lbc, fail 
OC A2 02120000 8F CA bie: 7? bicl #<atr_m_write!atr_m_bfall! - ;‘deallocate buffer’, clear write 
151 28 atr_m_virgin>,fcb_l_attr(r2) sand virgin 
000C0000 8F cB Q151 9 bisl #<atr_m_delete!atr_m_currec>,- ;set current record incorrect 
OC A2 157 0 feb_l"attr(r2) sand delete and copy atr to fcb 
50 01 00 0159 1 200$ mov l #1,°0 :set success 
04 Bi3e 3 ret return 
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be ti Breer 158e 97557589 EPCINTe eRe TPLYDELESE.mar;1 2% 9) 
15D 5 
is 13p § fail bneq 10$ :if not enough parms 
50 a i Y } F oPvi . Li$_parm,r0 iset aoe orev parms 
clr get no fc 
if 11 188 § brb sjust signal error 
0 ofp Ae i DO Q16A 40 10$ movl it b_l_error(r2) tset error code in fcb 
000000° F D1 1 41 cmpl re _fmsr,r tems rab error code? 
\¢ 1 tg bneq :if neq, no, cont 
01 et D 17 4 cmol (ap) ,#1 ikey passed d? 
13° O17A 44 beql 4 sif eql, no, cont 
53 O8A AC 9E 43 45 movab keyedde (ap) r3 iset bY address tor onkey 
00000000'GF 16 Q1 *$ jsb 9 “oli$$ch keycnd genect or ant” condition 
DD Q1 4 47 40$ pushl 7 zsset fcb ad 
DD 01 $3 pushl fr sset error oe 
00000000'8F DD O18A 4 pushl oe! {3 error sset error condition 
00000000'GF 03 FB B139 50 50$ calls #3,g*pli$io_error isi nal the condition 
06 019 51 ret sreturn 
0198 26 
0198 5 end 
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PLISDELETE - pli runtime delete file 16-SEP-1984 02:17: AX/VMS Ma v04-00 P 
Psect synopsis seohos, -SEP-1984 99:35:97 PLIRTL. SRC IPLIDELETE.MAR; 1 eg (§ 
$eeecceccccoscoce + 
: Psect synopsis ! 
fen nese asm ame nmee co 
PSECT name Allocation PSECT No. Attributes 
. a. « 00000000 ( 8-3 99 ( Q.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 4h aE ( 450.) 1¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_PLISCODE 0000198 (¢ 408.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Guecsecseeensacasessonsen} 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization Y 00:00: 8-06 98:00:01.1 
Command processing 67 Op 288: a. 0:00:03.91 
Pass 190 00:00:07.03 B8? BB 40-08 
Symbol table sort 0 00:00:00.76 00:00:01.93 
Pass 2 49 es SEE T BF 8 788 a8 
Symbol tabie output 11 00:00:00.08 00:00:00.09 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 Bp #88 783-00 
Assembler run totals 328 00:00:09.84 00:00:33.16 


The working set Limit was 1050 pages. ‘ 

378135 bytes (74 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 669 non-local and 22 local symbols. 
source Lines were read in Pass 1, producing 14 object records in Pass 2 

19 pages of virtual memory were used to define 17 macros. 


See Sweet woeeeoc ane e eee eet 


Semen aeeraas esse coe ote as ae men + 


Macro Library name 


-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLS; 1 4 
$255$DUA28: CSYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 14 


760 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIDELETE/OBJ=OBJ$:PLIDELETE MSRC$:PLIDELETE/UPDATE=(ENHS$:PLIDELETE)+LIB$:PLIRTM 
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